home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / dropclass.asp < prev    next >
Text File  |  1997-04-24  |  1KB  |  42 lines
  1. <%@ LANGUAGE="VBSCRIPT" %><html>
  2.  
  3. <head>
  4. <meta name="GENERATOR" content="Microsoft Developer Studio">
  5. <meta http-equiv="Content-Type"
  6. content="text/html; charset=iso-8859-1">
  7. <title>Drop a Class</title>
  8. <link rel="STYLESHEET" href="Stylesheets/Grid/Style2.css">
  9. </head>
  10.  
  11. <body background="Images/Grid/Background/Back2.jpg"
  12. bgcolor="White">
  13. <basefont face="Arial, Helvetica, sans-serif">
  14.  
  15. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  16.     <tr>
  17.         <th align="Left" nowrap bgcolor="Silver"
  18.         background="./Images/Grid/Navigation/Nav1.jpg"> <font
  19.         size="6"> Enrollment </font> </th>
  20.     </tr>
  21.     <tr>
  22.         <td bgcolor="#FFFFCC"> <font size="-1">   Drop
  23.         a class</font> </td>
  24.     </tr>
  25. </table>
  26. <% lngStudentID = session("id")
  27.    strClassID = request("classid")
  28.    set Dropobj = server.createobject("Drop.Obj")
  29.    errDropStudent = Dropobj.Drop (lngStudentID,strClassID)
  30.    if errDropStudent = 1 then
  31.     response.write "An error occurred and the class could not be added. Be sure that you are using a valid student ID and that you are not dropping from a class that has already been graded."
  32.     response.End
  33.    end if
  34. %>
  35. <p>Student <%=lngStudentID%> has been dropped from class <%=strClassID%> </p>
  36.  
  37. <hr>
  38. <a href="classview.htm">Return to class registration page</a>
  39.  
  40. </body>
  41. </html>
  42.